perm filename NGBDAV[1,JRA] blob
sn#005907 filedate 1972-10-03 generic text, type T, neo UTF8
00100 ∀(X1)(SET(X1)→CLASS(X1));
00200
00300 ∀(X1,X2)(ELEMENT(X1,X2)→SET(X1));
00400
00500 ∀(X1,X2)(∀(X3)(SET(X3)→(ELEMENT(X3,X1)↔ELEMENT(X3,X2)))→EQU(X1,X2));
00600
00700 ∀(X1)(SET(X1)→(∀(X2)(SET(X2)→(∃(X3)(SET(X3)∧(∀(X4)(SET(X4)→
00800 (ELEMENT(X4,X3)↔(EQU(X4,X1)∨EQU(X4,X2))))))))));
00900
01000 ∃(X1)∀(X2)(SET(X2)→∀(X3)(SET(X3)→(ELEMENT(ORDPAIR(X2,X3),X1)↔
01100 ELEMENT(X2,X3))));
01200
01300 ∀(X1,X2)∃(X3)∀(X4)(SET(X4)→(ELEMENT(X4,X3)↔(ELEMENT(X4,X1)∧
01400 ELEMENT(X4,X2))));
01500
01600 ∀(X1)∃(X2)∀(X3)(SET(X3)→(ELEMENT(X3,X2)↔(¬ELEMENT(X3,X1))));
01700
01800 ∀(X1)∃(X2)∀(X3)(SET(X3)→(ELEMENT(X3,X2)↔∃(X4)ELEMENT(ORDPAIR(X4,X3),X1)));
01900
02000 ∀(X1)∃(X2)∀(X3)(SET(X3)→∀(X4)(SET(X4)→(ELEMENT(TUPLE2(X4,X3),X2)↔
02100 ELEMENT(X3,X1))));
02200
02300 ∀(X1)∃(X2)∀(X3)(SET(X3)→∀(X4)(SET(X4)→(ELEMENT(TUPLE2(X3,X4),X2)↔
02400 ELEMENT(TUPLE2(X4,X3),X1))));
02500
02600 ∀(X1)∃(X2)∀(X3)(SET(X3)→∀(X4)(SET(X4)→∀(X5)(SET(X5)→
02700 (ELEMENT(TUPLE3(X3,X4,X5),X2)↔ELEMENT(TUPLE3(X4,X5,X3),X1)))));
02800
02900 ∀(X1)∃(X2)∀(X3)(SET(X3)→∀(X4)(SET(X4)→∀(X5)(SET(X5)→
03000 (ELEMENT(TUPLE3(X3,X4,X5),X2)↔ELEMENT(TUPLE3(X3,X5,X4),X1)))));
03100
03200 ∃(X1)(SET(X1)∧(¬EMPTY(X1)∧∀(X2)(SET(X2)→(ELEMENT(X2,X1)→
03300 ∃(X3)(ELEMENT(X3,X1)∧PROPSUBSET(X2,X3))))));
03400
03500 ∀(X1)(SET(X1)→∃(X2)(SET(X2)∧∀(X3)(SET(X3)→∀(X4)(SET(X4)→
03600 ((ELEMENT(X3,X4)∧ELEMENT(X4,X1))→ELEMENT(X3,X2))))));
03700
03800 ∀(X1)(SET(X1)→∃(X2)(SET(X2)∧∀(X3)(SET(X3)→
03900 (SUBSET(X3,X1)→ELEMENT(X3,X2)))));
04000
04100 ∀(X1)(SET(X1)→∀(X2)(ONEMANY(X2)→∃(X3)(SET(X3)∧∀(X4)(SET(X4)→
04200 (ELEMENT(X4,X3)↔∃(X5)(SET(X5)∧(ELEMENT(X5,X1)∧
04300 ELEMENT(TUPLE2(X4,X5),X2))))))));
04400
04500 ∀(X1)(¬EMPTY(X1)→∃(X2)(SET(X2)∧(ELEMENT(X2,X1)∧DISJOINT(X2,X1))));
04600
04700 ∃(X1)(ONEMANY(X1)∧∀(X2)(SET(X2)→(¬EMPTY(X2)→∃(X3)(SET(X3)∧
04800 (ELEMENT(X3,X2)∧ELEMENT(TUPLE2(X3,X2),X1))))));
04900
05000 ∀(X1,X2)(SUBSET(X1,X2)↔∀(X3)(SET(X3)→(ELEMENT(X3,X1)→ELEMENT(X3,X2))));
05100
05200 ∀(X1,X2)(PROPSUBSET(X1,X2)↔(SUBSET(X1,X2)∧¬EQU(X1,X2)));
05300
05400 ∀(X1)(EMPTY(X1)↔∀(X2)(SET(X2)→(¬ELEMENT(X2,X1))));
05500
05600 ∀(X1,X2)(DISJOINT(X1,X2)↔∀(X3)(SET(X3)→¬(ELEMENT(X3,X1)∧ELEMENT(X3,X2))));
05700
05800 ∀(X1)(ONEMANY(X1)↔∀(X2)(SET(X2)→∀(X3)(SET(X3)→∀(X4)(SET(X4)→
05900 ((ELEMENT(TUPLE2(X3,X2),X1)∧ELEMENT(TUPLE2(X4,X2),X1))→EQU(X3,X4))))));;
06000
06100 ;
06200
06300 ∀(X1)(SET(X1) → ¬ELEMENT(X1,X1));;